home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / redakcyjne / programy / VideoLAN Client (VLC) 1.0.5 / vlc-1.0.5-win32.exe / lua / http / requests / vlm.xml < prev   
Extensible Markup Language  |  2010-01-30  |  5KB  |  157 lines
  1. <?xml version="1.0" encoding="utf-8" standalone="yes" ?<?vlc print '>'
  2. --[[
  3. vim:syntax=lua
  4. <!--  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >
  5. <  vlm.xml: VLC media player web interface
  6. < - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >
  7. <  Copyright (C) 2005-2006 the VideoLAN team
  8. <  $Id$
  9. < 
  10. <  Authors: Antoine Cellerier <dionoea -at- videolan -dot- org>
  11. < 
  12. <  This program is free software; you can redistribute it and/or modify
  13. <  it under the terms of the GNU General Public License as published by
  14. <  the Free Software Foundation; either version 2 of the License, or
  15. <  (at your option) any later version.
  16. < 
  17. <  This program is distributed in the hope that it will be useful,
  18. <  but WITHOUT ANY WARRANTY; without even the implied warranty of
  19. <  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20. <  GNU General Public License for more details.
  21. < 
  22. <  You should have received a copy of the GNU General Public License
  23. <  along with this program; if not, write to the Free Software
  24. <  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  25. < - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
  26. ]]
  27.  
  28. local function insert_children(c,t)
  29.   print(c.children)
  30.     if c.children then
  31.       for _, d in ipairs(c.children) do
  32.         table.insert(t,d.value or d.name)
  33.         if d.value then
  34.         print("V"..d.value.."|")
  35.         end
  36.         if d.name then
  37.         print("N"..d.name.."|")
  38.         end
  39.       end
  40.     end
  41. end
  42. local function print_table(name,t)
  43.   print("<"..name.."s>")
  44.   if #t ~= 0 then
  45.     for _,v in ipairs(t) do
  46.       print("<"..name..">")
  47.         print(v)
  48.       print("</"..name..">")
  49.     end
  50.   end
  51.   print("</"..name.."s>")
  52. end
  53. local function print_media(m)
  54.   local name = m.name
  55.   local type_, enabled, loop, output
  56.   local inputs = {}
  57.   local options = {}
  58.   local instances = {}
  59.   for _,c in ipairs(m.children) do
  60.     if c.name=="type" then
  61.       type_ = c.value
  62.     elseif c.name=="enabled" then
  63.       enabled = c.value
  64.     elseif c.name=="loop" then
  65.       loop = c.value
  66.     elseif c.name=="output" then
  67.       output = c.value
  68.     elseif c.name=="inputs" then
  69.       insert_children(c,inputs)
  70.     elseif c.name=="options" then
  71.       insert_children(c,options)
  72.     elseif c.name=="instances" then
  73.       if c.children then
  74.         for _, d in ipairs(c.children) do
  75.           local instance = "<instance "
  76.           for _,e in ipairs(d.children) do
  77.             instance = instance .. e.name .. "=\"" .. e.value .. "\" "
  78.           end
  79.           instance = instance .. "/>"
  80.           table.insert(instances,instance)
  81.         end
  82.       end
  83.     end
  84.   end
  85.   print("<"..type_.." name=\""..name.."\" enabled=\""..enabled.."\" loop=\""..loop.."\">\n")
  86.   print("<output>"..output.."</output>\n")
  87.   print_table("input",inputs)
  88.   print_table("option",options)
  89.   print "<instances>\n"
  90.   if #instances ~= 0 then
  91.     print(table.concat(instances))
  92.   end
  93.   print "</instances>\n"
  94.   print("</"..type_..">\n")
  95. end
  96.  
  97. local function print_schedule(m)
  98.   local name = m.name
  99.   local enabled, date, period, repeat_ = "", "", "", ""
  100.   local commands = {}
  101.   for _,c in ipairs(m.children) do
  102.     if c.name=="enabled" then
  103.       enabled = c.value
  104.     elseif c.name=="date" then
  105.       date = c.value
  106.     elseif c.name=="period" then
  107.       period = c.value
  108.     elseif c.name=="repeat" then
  109.       repeat_ = c.value
  110.     elseif c.name=="commands" then
  111.       insert_children(c,commands)
  112.     end
  113.   end
  114.   print("<schedule name=\""..name.."\" enabled=\""..enabled.."\" period=\""..period.."\" repeat=\""..repeat_.."\">\n")
  115.   print_table("command",commands)
  116.   print("</schedule>\n")
  117. end
  118.  
  119. local function print_xml(m)
  120.   print "<vlm>"
  121.   if m then
  122.     for _, c in ipairs(m.children) do
  123.       if c.name=="media" and c.children then
  124.         for _, d in ipairs(c.children) do
  125.           print_media(d)
  126.         end
  127.       elseif c.name=="schedule" and c.children then
  128.         for _, d in ipairs(c.children) do
  129.           print_schedule(d)
  130.         end
  131.       end
  132.     end
  133.   else
  134.     print "oops"
  135.   end
  136.   print "</vlm>"
  137. end
  138.  
  139. local function print_msg(m)
  140.   if not m then return end
  141.   print("<"..m.name..">\n")
  142.   if m.children then
  143.     for _, child in ipairs(m.children) do
  144.       print_msg(child)
  145.     end
  146.   elseif m.value then
  147.     print(m.value)
  148.   end
  149.   print("</"..m.name..">\n")
  150. end
  151.  
  152. local msg = vlm:execute_command("show")
  153. print_xml(msg)
  154. --print_msg(msg)
  155.  
  156. ?>
  157.